Freescale Semiconductor 


Freescale Semiconductor 


Order this document 
by AN1055/D 


AN1055 


M6805 16-Bit Support Macros 


■ 

o 

c 


if your microcontroller (MCU) application requires a small 
amount of program memory and not much raw computing 
power, the M6805 MCU Family is a most logical choice, given 
their low cost. But do not cross the M6805 Family off your se¬ 
lection list just because you need some 16-bit indexing and/or 
16-bit operations, such as the higher cost M68HC11 Family 
provides. While the 8-bit X index register of the M6805 Family 
cannot access the entire M6805 12/13-bit address space and 
its single 8-bit accumulator cannot directly do 16-bit opera¬ 
tions, advanced software techniques can be employed to work 
around the limitations of the M6805 Family. This application 
note gives specific details and examples of these techniques. 

The code samples given here are available in source code 
form on the Motorola FREEWARE Bulletin Board Service 
(BBS), by telephoning 512/891-FREE (512/891-3733). The 
FREEWARE line operates continuously (except for mainte¬ 
nance) at 300-2400 baud, 8 data bits, 1 stop bit, and no parity. 
Sample test files are also included. Download the archive file, 
MACROS05.ARC, to get all the files. All files are suitable for 
use with the Motorola Development Systems M6805 Portable 
Assembler for MS-DOS, known as PASM05. Other assem¬ 
blers may also be supported, but consult the BBS for details. 

The techniques used here involve a combination of macros 
and RAM-based subroutines which use instruction modifica¬ 
tion. Macros allow programming on a higher level of thought 
with less chance for introducing errors. 

Instruction modification is a technique of altering an instruc¬ 
tion just prior to its execution. The modification requires that 
the instruction be in RAM and can involve the opcode and/or 
the operand portion of the instruction. By determining the ex¬ 
act instruction/operand needed in advance of execution, 
greater efficiency in execution speed and code size can be ob¬ 
tained. There is a significant risk in using the instruction modifi¬ 
cation technique because if used improperly, the program will 
either fail to work properly at best, or crash at worst. When the 
technique is used, great care must be exercised to ensure cor¬ 
rect operation in all possible cases. 

To illustrate the instruction modification technique, consider 
the following instruction at location $0050 in RAM memory. 

0050 C6 04FF LDA $4FF 

The LDA instruction consists of three bytes: an opcode byte 
($C6) and two bytes that hold the extended address (S04FF) of 
the operand. When executed, the A accumulator will be 
loaded with the contents of location $04FF. Now consider what 
happens when the following instructions at location $870 are 
executed and how the previous memory locations are 
changed. 


0870 

A6 

05 

LDA 

#$05 

0872 

B7 

51 

STA 

$51 

0874 

A6 

2C 

LDA 

#$2C 

0872 

B7 

52 

STA 

$52 


These instructions store $05 into location $0051 and $2C 
into location $0052, which is the operand address of the op¬ 
code byte at location $0050. This has the effect of changing 
the instruction at location $0050 to the following. 

0050 C6 052C LDA $52C 

When location $0050 is executed, the A accumulator will 
now be loaded with the contents of location $052C, i.e., the in¬ 
struction at location $0050 has been modified! Note that the 
original source listing will only show "LDA $4FF\ as the in¬ 
struction is only changed at execution time, not assembly time. 

When instruction modification is used in a ROM-based sys¬ 
tem, the RAM code must be initialized (from the ROM) before 
being used. This can be as simple as a few LOAD/STORE in¬ 
structions for a small routine, or a MOVE BLOCK routine may 
be required for larger routines. 

As with all things of value, there is a price to be paid. The 
price for using these macros is rather small, namely, 23 bytes 
(16 for RAM subroutines and 7 for local storage) of direct ad¬ 
dressing memory, i.e., in the range of $0-$00FF. The macros 
have a small size/execution speed penalty associated with 
them that varies from zero to 50 percent, depending on the fre¬ 
quency and type of macros used. An estimated typical cost for 
an entire program with moderate macro usage would be in the 
5 to 20 percent range. But this is small cost to pay for error-free 
code generation in areas of the program where speed is not 
critical. By judicious usage/choice of macros, the cost can be 
held closer to the 5 percent range. 

Part of this cost is associated with the structured code tech¬ 
nique of preserving registers and another part is involved with 
setting up the proper condition codes. The rest of the cost is 
inherent in the fact that M6805 MCUs must do extra work in 
software to simulate the hardware capabilities built in 
M68HC11 MCUs. Because these macros have been 
fine-tuned for size and speed efficiencies, the overhead cost of 
register preservation is typically 4 bytes and the overhead cost 
of condition code setting is typically 2 to 4 bytes, per macro in¬ 
vocation. It can be as high as 200 percent, as is the case of the 
MOV.B macro for extended addressing operands (16 versus 8 
bytes if no register preservation/condition code initialization is 
done) or as low as zero percent for direct addressing oper¬ 
ands. 


© Freescale Semiconductor, Inc., 2004. All rights reserved. 



freescale “ 

semiconductor 


For More Information On This Product, 
Go to: www.freescale.com 


reescale Semiconductor, Inc 


Freescale Semiconductor, Inc 


The DREG macros have almost no overhead associated 
with them since the DREG is implemented using the already 
existing A and X registers. The overhead price for DREG mac¬ 
ros is only 2 bytes of local storage (TEMPA$, TESTA$), be¬ 
cause the RAM subroutines are only needed for XREG and 
YREG support. The Add and Subtract DREG macros (ADDD, 
SUBD) have the most overhead because they must save and 
restore a working register (A), but even this is rather minimal. If 
only DREG macros are used, it is estimated that the code size 
could expand from zero to 5 percent over straight assembly 
language, depending on how many and which type of DREG 
macros are used. 

The XREG and YREG macros have the most overhead, 
since they are implemented using RAM memory locations. 
The Load and Store via XREG/YREG macros (LDAXY, 
STAXY) have the most overhead when nonzero offset values 
are used (26 bytes versus 2 bytes for zero offset, or 1300 per¬ 
cent). Thus, nonzero offset usages should be avoided unless 
absolutely necessary. There is also some inefficiency asso¬ 
ciated with internally maintaining two copies of each register, 
but it actually helps in the overall implementation. 

The Increment, Decrement, and Move macros (INC.B, 
INC.W, DEC.B, DEC.W, MOV.B, MOVE.W, MOVE) have zero 
to high overhead. The DEC.B and INC.B macros have zero 
overhead when used with direct addressing operands, while 
the INC.W and DEC.W macros have high overhead due to set¬ 
ting the proper condition code based on the resultant 16-bit 
value. 

To use these 16-bit macros, here is a quick summary of the 
steps involved for use on an IBM-PC with the Development 
Systems PASM05 macro assembler, which should already 
have been installed per the instructions supplied with the prod¬ 
uct. The sample MS-DOS commands are shown in upper 
case for clarity only (except as noted), as MS-DOS accepts ei¬ 
ther upper or lower case. 

1. Create a new directory for your project and change direc¬ 
tory to it as shown below. 

OMKDIR PROJ 

C>CD PROJ 

2. Download the archive file, MACROS05.ARC, from the 
Motorola FREEWARE Bulletin Board to your project di¬ 
rectory and then de-archive it as shown below. See the 
FREEWARE bulletin file, archive.buf, for de-archiving in¬ 
formation. 

OPKARC MACROS 05 . ARC 

3. Read the READ.ME file first, and then read the Notes 
header in the MACROS05.MAC and RAMSBR.INI files. 

In the MACROS05.MAC file, study the individual macro 
headers of the macros you intend to use, especially the 
examples shown. 


4. Write your source code using the example shown in the 
Notes header of the MACROS05.MAC file, as illustrated 
in Listing 1, lines 1030-1460. If the two ORG statements, 
lines 1130 and 1180, are not valid for your application’s 
memory map. change them to the appropriate values. 
Notice especially how the initialization of the RAM sub¬ 
routines is accomplished by the MOVE macro in line 
1200 using the ROM code generated by the INCLUDE 
statement in line 1400. Or you can expand the BBS EX¬ 
AMPLE. S file into your source file by first making a copy 
of it and then editing the copy as shown below (PE is the 
IBM Personal Editor command, but you can use any edi¬ 
tor you feel comfortable with). 

OCOPY EXAMPLE. S MYFILE.S 
OPE MYFILE.S 


5. Invoke PASM05 to assemble your new source file as 
shown below. Because the options for PASM05 are case 
sensitive, be sure to enter them just as shown. 

OPASM05 -eq “1 MYFILE.LST MYFILE.S 

This produces listing file MYFILE.LST and a COFF relo¬ 
catable object file MYFILE.O. 


6. To produce an absolute S-record object file suitable for 
programming an EPROM, the COFF relocatable object 
file must first be linked to an absolute object file (MY- 
FILE.OUT) and then converted to an S-record file (MY- 
FILE.MX), which many commercial EPROM program¬ 
mers, such as Data I/O, recognize. Enter the commands 
shown below to create the S-record file. 



OPLD -o MYFILE. OUT MYFILE.O 
OUBUILDS MYFILE.OUT 

Steps 5 and 6 can be simplified by copying and editing the 
BBS batch file, MAKE1.BAT, in a manner similar to that 
shown in Step 4, except here we want the new batch file, 
MAKE.BAT, to process MYFILE instead of TEST 1. The 
resultant MAKE.BAT file should be similar to the text 
shown below. The two DEL commands at the end are op¬ 
tional, as these files are no longer needed. 

pasmOS -eq -1 myfile.1st myfile.s 
pld -o rayfile.out myfile.o 
ubuilds myfile.out 
del myfile.o 
del myfile.out 


To accomplish Steps 5 and 6, invoke the batch file 
MAKE.BAT by simply typing its name as shown below. 
MS-DOS will execute each line of the file as if you had 
typed it on the keyboard. 
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7. Consult your EPROM programmer’s user manual 
for how to load the resultant S-record object file 
(MYFILE.MX) and program your chosen device. 


Because of the length of the source listings involved and be¬ 
cause these listings are intended to be self-explanatory, the 
rest of this discussion will only deal with salient points which 
might need clarification for the reader. Line numbers have 
been added at the beginning of each line for identification pur¬ 
poses in this Application Note, i.e., they are not present in the 
actual source file. 

These macros have been written so that any syntax error will 
result in falling to the end of the macro where the FAIL directive 
will force a “Macro syntax error detected!" message. Proper 
usage results in exiting the macro early via the MEXIT directive 
and thus avoids the FAIL directive at the end. 

The file header of Listing 1 (lines 20-1800) gives specific 
details of the macros supported and their general operation 
and restrictions. Line 1810 defines where a seven byte block 
of low memory will be allocated for support of these macros 
(see lines 20430-20490). Line 1830 disables the output listing 
to avoid repetitious output, while line 19630 re-enables the list¬ 
ing. 

A lot of conditionals (IFxx) involve testing to see if direct ad¬ 
dressing can be used, as it is more efficient (one less byte and 
one less execution cycle per instruction) than extended ad¬ 
dressing, as illustrated by lines 2090-2210. Also, conditionals 
check to see if shorter instruction forms can be used, like 
"CLRA" instead of “LDA #0”, as in these same lines. For this 

• same reason, it is most efficient to place the RAM subroutines, 
and thus the XREG and YREG, into direct addressing space 
($GOOO-$OOBF). Remember that the M6805 uses a fixed stack 
area in direct addressing space of $OOCO-$OOFF. 

The COMPARE macros (CPD, CPXR, CPYR) use a short¬ 
ened form when immediate addressing is specified and either 


of the halves is zero, i.e., no "CMP #0" instruction is generated. 
Lines 3480-3660 are typical of this technique. As always, test¬ 
ing for zero is most efficient in computer architecture. 

The 16-BIT INDEXING macros (LDAXY, STAXY) are most 
efficient when used with a zero offset, as typified in lines 
3980-4060, but will function with any sized offset (lines 
4070-4210). Nonzero offsets must first be added to the index¬ 
ing register (XREG or YREG), the operation performed via the 
appropriate RAM subroutine, and lastly, the indexing register 
must be restored to its original value. 

Lines 19640-20410 comprise the RAM subroutines which 
are the keystone of the macros using the XREG and YREG 
pseudo 16-bit index registers. It is here that the XREG and 
YREG pseudo-registers are defined and stored as the second 
and third bytes of extended addressing LDA and STA instruc¬ 
tions using EQU directives (lines 19910-19920,20060-20070, 
20210-20220, and 20360-20370). Instructions that store val¬ 
ues to XREG or YREG will thus modify the instruction’s effec¬ 
tive address, hence the name instruction modification. These 
RAM subroutines must be initialized before they can be used, 
and so a mirror image of this code with altered labels is pro¬ 
vided in the RAMSBR.fNI file (as seen in Listing 2). This file 
can then be simply INCLUDED in the ROM section of the 
user’s code and copied to RAM via the MOVE macro, as dis¬ 
cussed in lines 19660-19760 of Listing 1. 

Listing 2 is the RAM subroutine initialization file and is es¬ 
sentially a copy of the RAM subroutines defined in lines 
19640-20410 of Listing 1, but the labels have all been prefixed 
with a period (.). This allows using the MOVE macro to copy 
this RAM initialization code from a ROM to RAM (see lines 
370-410). 

Lines 1070-1090 verify that the number of RAM subroutine 
initialization bytes is identical. 




For More Information On This Product, 
Go to: www.freescale.com 


Freescale Semiconductor, Inc 


Freescale Semiconductor, Inc 


Listing 1 - MACROS05.MAC File 


00010 

00020 

00030 

PAGE 

************************************************************************************** 
* macrosOS.mac 1.0 

00040 

* - 



00050 

* Module Name 

MACROS05 - M6805 Macros 

00060 

* - 



00070 

* 



00080 

* Description: 

00090 

* 

This file contains macros and subroutines to support pseudo-registers 

00100 

* 

on the 6805 that simulate registers and addressing modes available on 

00110 

* 

the 68HC11. It is suitable for "black box" operation, i.e., the 

00120 

* 

macros may be used without knowledge of how they work. A list of the 

00130 

* 

supported macros follows. Consult the individual macro headers for 

00140 

* 

usage details and see the "Notes" below. 

00150 

* 



00160 

* 

LDD 

Load DREG 

00170 

* 

STD 

Store DREG 

00180 

* 

ADDD 

Add DREG 

00190 

* 

SUBD 

Add DREG 

00200 

* 

CPD 

Compare DREG 

00210 

* 

LDAXY 

Load A via 16-bit pseudo-register (XREG or YREG) 

00220 

* 

STAXY 

Store A via 16-bit pseudo-register (XREG or YREG) 

00230 

★ 

LDXR 

Load XREG 

00240 

* 

STXR 

Store XREG 

00250 

* 

INCXR 

Increment XREG 

00260 

* 

DECXR 

Decrement XREG 

00270 

★ 

CPXR 

Compare XREG 

00280 

* 

LDYR 

Load YREG 

00290 

* 

STYR 

Store YREG 

00300 

★ 

INCYR 

Increment YREG 

00310 

* 

DECYR 

Decrement YREG 

00320 

* 

CPYR 

Compare YREG 

00330 

* 

DEC .B 

Decrement byte 

00340 

* 

DEC.W 

Decrement word 

00350 

it 

INC, B 

Increment byte 

00360 

* 

INC .W 

Increment word 

00370 

it 

MOV. B 

Move byte 

00380 

it 

MOV.W 

Move word 

00390 

it 

MOVE 

Move block of memory 

00400 

* 



00410 

* General Information: 

00420 

* 

The following pseudo-registers are supported. 

00430 

* 

DREG = 

pseudo 16—bit accumulator (A,X registers, A is MS half) 

00440 

* 

XREG = 

pseudo 16-bit index register 

00450 

* 

YREG “ 

pseudo 16-bit index register 

00460 

★ 



00470 

* 

The following terms are used. 

00480 

* 

# 

= specifies immediate addressing mode 

00490 

★ 

<address> = address/value operand (absolute or immediate) 

00500 

★ 

<offset> = unsigned 16-bit offset for indexed addressing 

00510 

* 



00520 

* Notes: 


00530 

* 

1.Motorola reserves the right to make changes to this file, 

00540 

* 

Although this file has been carefully reviewed and is believed 

00550 

★ 

to be reliable, Motorola does not assume any liability arising 

00560 

* 

out 

of its use. This code may be freely used and/or modified at 

00570 

* 

no cost or obligation by the user. 

00580 

* 

2. This 

; file was made for use with the Motorola Development Systems 

00590 

★ 

MC6805 Portable Assembler/Linker for MS-DOS, known as PASM05 and 

00600 

* 

PLD, 

as released on 82HCVBASM B* and 82HCVBLNK B*. Consult the 

00610 

it 

PASM and PLD reference manuals, part numbers M68HASM/D1 and 

00620 

it 

M68HLINK/D1 for more details. 
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O 

C 


00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

00850 

00860 

00870 

00880 

00890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 

00970 

00980 

00990 

01000 

01010 

01020 

01030 

01040 

01050 

01060 

01070 

01080 

01090 

01100 


3.These macros were made for ABSOLUTE assemblies only, i.e., for 
use with ORG directives. While most of the macro concepts will 
work in relocatable assemblies (BSCT, DSCT, PSCT, ASCT, XDEF, 
and XREF) , errors will be generated because PASM limits the use 
of external symbols in expressions and because the value of an 
expression must be known at assembly time for IFxx directives to 
assemble the proper code. The first restriction is a result of 
limitations in the COFF object file format. If it is desired to 
have these macros work with relocatable assemblies, modifica¬ 
tions similar to below should be made, but be forewarned of the 
increased inefficiencies in size and speed. Consider the 
following code to change the LDD macro so that an XREF parameter, 
\1, can be loaded as an immediate value. 

LDA \.8 

LDX \.8+1 

BRA \.9 

\. 8 FOB \1 

\.9 EQU * 

4.In order to efficiently support both LOAD and STORE operations 
for the pseudo 16-bit index registers, there are actually two 
such "registers", i.e., one for LOAD and one for STORE as 
defined below. These routines maintain both "registers" with 
the same value, and so the programmer may think of them as one 
register. 

XREG1$ = 16-bit XREG for LOAD operations 

XREG2$ = 16-bit XREG for STORE operations 

YREG1$ = 16-bit YREG for LOAD operations 

YREG2$ = 16-bit YREG for STORE operations 

5. These macros can be used to create in-line code (speed 
efficient) or they be placed in a subroutine (byte efficient). 

6. Instruction modified code is used here and is denoted by use 
of the unique string "0-0" (RAM subroutines). 

7.Some macros use temporary storage locations (TEMPA$, TESTA$, 
etc.), so these macros should not be used in any interrupt 
routine in order to avoid corrupted values! 

8. The user must ensure that the code is appropriately placed in 
the target M6805's memory map, i.e., the RAM subroutines MUST 
be located in RAM but must not overlap the stack area ($00C0- 
00FF) unless it can be GUARANTEED there is no conflict! See 
L0$MEM below to set low memory data storage area! 

9. To use this file, either use an INCLUDE statement or just 
merge this file into your source code file. Consult your 
assembler's user's manual for the details specific to your 
situation. When using a ROM controlled system, the MOVE 
macro should be used to copy the RAM subroutines from ROM to 
RAM (see the comments after where RAMSBR$ is defined below 
and note the INCLUDE statement for the RAMSBR.INI file) . 

Reference the code segment example below for usage ideas 


OHIO 

* 

(shown 

in PASM05 

for MS-DOS syntax). 

01120 

* 




01130 

* 


ORG 

$50 

01140 

* 

TOTAL 

RMB 

2 

01150 

* 

RTABLE 

RMB 

5 

01160 

* 


INCLUDE 

MACROS 05. MAC 

01170 

* 




01180 

* 


ORG 

$400 

01190 

★ 

RESET 

RSP 


01200 

* 


MOVE 

#, .RAMSBR$ / #, RAMSBR$, #, RAMSZ$ 

01210 

* 

START 

MOV.W 

#,0,TOTAL 

01220 

* 


LDD 

COST 

01230 

* 


ADDD 

#,1000 

01240 

★ 


SUBD 

#,ADJUST 

01250 

* 


ADDD 

TOTAL 

01260 

★ 


STDD 

TOTAL 


Init ram. 
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01270 

* 



CPD #,1500 

01280 

* 



BEQ MATCH 

01290 

* 


* 


01300 

* 



LDXR #,0 

01310 

* 



LDYR #,0 

01320 

★ 


LOOP 

LDAXY TABLE, XREG 

01330 

* 



STAXY RTABLE, YREG 

01340 

* 



INCXR 

01350 

* 



INCYR 

01360 

* 



CPY #/ 5 

01370 

* 



BNE LOOP 

01380 

* 




01390 

* 



. 

01400 

* 



INCLUDE RAMSBR. INI 

01410 

* 


TABLE 

FCB 1,2,3,4,5 

01420 

* 


ADJUST 

FDB 150 

01430 

* 


COST 

FDB 859 

01440 

* 




01450 

* 



. 

01460 

* 



END 

01470 

★ 




01480 

★ 

10. 

To assemble, use the following sample invocation lines: 

01490 

* 


pasm05 

-eq -1 filename. 1st filename.s (debug= expanded) 

01500 

* 


or 


01510 

it 


pasm05 

-bf -1 filename.1st filename.s (black box) 

01520 

* 

11. 

Notations used by PASM05 are as follows: 

01530 

* 


OPERATORS: Special two character operators used are.., 

01540 

* 



1. Logical AND ' ■ 

01550 

* 



2.Shift Right (0 fill on left) !> 

01560 

* 


MACROS: Special notations used are... 

01570 

* 



1. Parameters are positionally named using \0, 

01580 

* 



\1, \2, etc. 

01590 

★ 



2. Labels within macros are designated via \.a, 

01600 

* 



where "a" is an alphanumeric character. The 

01610 

* 



assembler generates a unique label to avoid 

01620 

* 



multiply defined label problems. 


0X630 

01640 

01650 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 


12. Some macros access 16—bit values as LS byte then MS byte in order 
to be more efficient for condition code (CC) setting. This is 
the reverse order that the 68HC11 would access the two byte 
halves. This difference would only be a concern in accessing 
hardware registers, as normal RAM makes no difference. Those 
macros with this difference have an entry in their Notes section. 

13. The latest version of this file is maintained on the Motorola 
FREEWARE Bulletin Board, 512/891-FREE (512/891-3733). It operates 
continuously (except for maintenance) at 1200-2400 baud, 8 bits, 
no parity. Sample test files for PASM05 are also included. 
Download the archive file, MACROS05. ARC, to get all the files. 


************************************************************************************** 

* REVISION HISTORY (add new changes to top) : 

* 

* 05/16/90 P.S. Gilmour 

* 1. Created for Application Note AN1055. 

************************************************************************************** 
LO$MEM EQU $00C0-7 Low memory ($0000-QOFF) storage <7 bytes) 
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01830 

01840 

01850 

01860 

01870 

01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 

02020 

02030 

02040 

02050 

02060 

02070 

02080 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 


AN1055 


OPT NOL 

************************************************************************************** 
* LDD = load DREG 


LDD 

[#,]<address> 



Examples: 

1. "LDD 

#,START" 

puts the 

value of symbol 'START' into 



the DREG 

<=A,X) . 

2. "LDD 

START" 

puts the 

contents of location 'START' 


* and 'START'+1 into the DREG (*A,X>. 

* 

* Register Usage: 

* A,X = loaded with new value (DREG). 

* CC = reflects MS half <-A). 

* All other registers preserved. 


* Notes: 

* l. Byte access order is LS, then MS (reversed from 68HC11) . 

* 

LDD MACR 

IFEQ NARG-1 

LDX (\0)+l 

LDA (\0) 

MEXIT 


ENDC 

IFEQ NARG-2 

IFC '\0','#' 

IFEQ (\1)!.$FF 

CLRX 
ENDC 

IFNE <\1)!.$FF 

LDX #(\1)!.$FF 

ENDC 

IFEQ (\1)!>8 

CLRA 
ENDC 

IFNE (\1)!>8 

LDA #(\1)!>8 

ENDC 
MEXIT 

ENDC 

ENDC 

FAIL Macro syntax error detected! 

ENDM 


************************************************************************************** 

* STD - store DREG 

* STD <address> 

* 

* Examples: 

* 1. "STD START" stores the DREG <=A,X) into locations 

* 'START' and 'START'+1. 

* 

* Register Usage: 

* CC - reflects MS half (-A). 

* All other registers preserved. 

* 

* Notes: 

* l.Byte access order is LS, then MS (reversed from 68HC11). 

* 

STD MACR 

STX <\0)+l 
STA <\0) 

ENDM 
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O 

C 


02480 

02490 

02500 

02510 

02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

02600 


********************************************* 

* ADDD = add DREG 

* ADDD [#,]<address> 


***************************************** 


* Examples: 

* l."ADDD #,START' 

* 

* 2 . "ADDD START" 

* 

* 


adds the value of symbol 'START' to the 
DREG (=A,X). 

adds the contents of location 'START' 
and 'START'+1 to the DREG (=A,X) . 


* Register Usage: 

* A,X = contains new value (DREG) . 
CC = reflects MS half (=A). 


02610 

* 

All other registers 

02620 

* 


02630 

ADDD MACR 

02640 


IFEQ NARG-1 

02650 


STA TEMPA$ 

02660 


TXA 

02670 


ADD (\0)+1 

02680 


TAX 

02690 


LDA TEMPA$ 

02700 


ADC (\0) 

02710 


MEXIT 

02720 


ENDC 

02730 


IFEQ NARG-2 

02740 


IFC 

02750 


STA TEMPA$ 

02760 


TXA 

02770 


ADD #(\1>!.$FF 

02780 


TAX 

02790 


LDA TEMPA$ 

02800 


ADC #(\1)!>8 

02810 


MEXIT 

02820 


ENDC 

02830 


ENDC 

02840 


FAIL Macro syntax < 

02850 

02860 


ENDM 

02870 

**************************< 

02880 

* 

SUBD = add DREG 

02890 

* 

SUBD [#, ]<address> 

02900 

* 


02910 

* 

Examples: 

02920 

* 

1. "SUBD #, START" 

02930 

* 


02940 

* 

2 . "SUBD START" 

02950 

* 


02960 

* 



subtracts the value of symbol 'START' from 
the DREG (=A,X). 

subtracts the contents of location 'START' 
and 'START'+1 from the DREG (=A,X) . 


02970 * Register Usage: 

02980 * A,X = contains new value (DREG) . 

02990 * CC = reflects MS half (=A) . 

03000 * All other registers preserved. 

03010 * 

03020 SUBD MACR 
03030 IFEQ NARG—1 
03040 STA TEMPA$ 

03050 TXA 

03060 SUB (\0)+l 

03070 TAX 

03080 LDA TEMPA$ 

03090 SBC <\0) 

03100 MEXIT 

03110 ENDC 



For More Information On This Product, 
Go to: www.freescale.com 


Freescale Semiconductor 


Freescale Semiconductor, Inc 


| 
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c 



t 

i 


03120 IFEQ NARG-2 
03130 IFC 


03140 

STA 

TEMPA$ 

03150 

TXA 


03160 

SUB 

#(\1) ! . $FF 

03170 

TAX 


03180 

LDA 

TEMPA$ 

03190 

SBC 

#(\1)»>8 

03200 

MEXIT 



03210 ENDC 

03220 ENDC 

03230 FAIL Macro syntax error detected! 

03240 ENDM 

03250 

03260 ************************************************************************************** 

03270 * CPD = compare DREG 

03280 * CPD [#,]<address> 

03290 * 


03300 

* 

Examples: 




03310 

* 

1 . 

"CPD 

#/BLOCKSZ" 

compares 

the value of symbol 'BLOCKSZ 

03320 

* 




with the 

DREG (sA ; X). 

03330 

* 

2. 

"CPD 

START" 

con^ares 

the contents of location 


03340 * 1 START' and 'START'+1 with the DREG. 

03350 * 

03360 * Register Usage: 

03370 * CC = reflects DREG comparison (Z-bit only) . 

03380 * All other registers preserved. 

03390 * 

03400 CPD MACR 

03410 IFEQ NARG-1 


03420 

CPX 

<\0)+l 

03430 

BNE 

\.o 

03440 

CMP 

<\0) 

03450 \.0 

EQU 

* 

03460 

MEXIT 



03470 ENDC 

03480 IFEQ NARG-2 

03490 IFC '\0','#' 

03500 IFEQ <\1)!.$FF 

03510 TSTX 

03520 ENDC 

03530 IFNE (\1)!.$FF 

03540 CPX #(\1)!.$FF 

03550 ENDC 

03560 BNE \.0 

03570 IFEQ (\1) !>8 

03580 TSTA 

03590 ENDC 

03600 IFNE (\1) !>8 

03610 CMP # (\1) !>8 

03620 ENDC 

03630 \.0 EQU * 

03640 MEXIT 

03650 ENDC 

03660 ENDC 

03670 FAIL Macro syntax error detected! 

03680 ENDM 

03690 
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03700 

03710 

03720 

03730 

03740 

03750 

03760 

03770 

03780 

03790 

03800 

03810 

03820 

03830 

03840 

03850 

03860 

03870 

03880 

03890 

03900 

03910 

03920 

03930 

03940 

03950 

03960 

03970 

03980 

03990 

04000 

04010 

04020 

04030 

04040 

04050 

04060 

04070 

04080 

04090 

04100 

04110 

04120 

04130 

04140 

04150 

04160 

04170 

04180 

04190 

04200 

04210 

04220 

04230 

04240 

04250 

04260 


* LDAXY = load A via 16-bit pseudo- register (XREG or YREG) 


LDAXY 

LDAXY 


<offset>,XREG 
<offset>,YREG 


Examples : . 

* 1 "LDAXY 0,XREG" loads the contents of the memory location 

* specified by XREG+0 into the A accumulator. 

* 2 "LDAXY , XREG" loads the contents of the memory location 

* specified by XREG+0 into the accumulator. 

* 3 "LDAXY TBL,XREG" loads the contents of the memory location 

* specified by XREG+ 'TBL' into the A accum- 

* ulator. 

* 4. Above examples can be repeated with substituting YHEG for XREG. 

* 

* Register Usage: 

* A » loaded with new value. 

* DREG = destroyed. 

* CC = reflects value loaded. 

* All other registers preserved. 

* 

LDAXY MACR 

IFNC '\1' / 'XREG' 

IFNC '\1' , 'YREG' 

FAIL Macro syntax error detected! 

MEXIT 

ENDC 

ENDC 

IFC '\0'," 

JSR LDA\1 Default offset= 0 

MEXIT 

ENDC 

IFNC '\0'," 

IFEQ \0 

JSR LDA\1 Offset= 0 

MEXIT 

ENDC 


0, XREG' 


"LDAXY , XREG" 
"LDAXY TBL,XREG" 


Default offset^ 0 


Offset= 0 


LDA \11$+1 
ADD #(\0)!.$FF 
STA \11$+1 
LDA \11$ 

ADC # (\0) ! >8 
STA \11$ 

JSR LDA\1 
STA TEMPA$ 

LDA \12$ 

STA \H$ 

LDA \12$+1 
STA \H$+1 
LDA TEMPA$ 
MEXIT 


Set nREG= offset + nREG 


Offset= 0 


Restore nREG 


ENDC 

ENDC 


FAIL Macro syntax error detected! 
ENDM 


MOTOROLA 

10 


For More Information On This Product, 
Go to: www.freescale.com 


Freescale Semiconductor 


Freescale Semiconductor, Inc 



04270 ************************************************************************** 

04280 * STAXY = store A via 16-bit pseudo-register (XREG or YREG) 

04290 * STAXY <offset>,XREG 

04300 * STAXY <of fset>, YREG 

04310 * 

04320 * Examples: 


04330 

* 

1 . 

"STAXY 

0 , XREG" 

stores the accumulator (=A) into 

the 

memory 

04340 

04350 

* 

* 

2. 

"STAXY 

,XREG" 

location specifiod by XREG+0. 
stores the accumulator (=A) into 

the 

memory 

04360 

04370 

* 

* 

3. 

"STAXY 

TBL,XREG" 

location specified by XREG+0. 
stores the accumulator (*A) into 

the 

memory 


04380 * specified by XREG+ 'TBL' * 

04390 * 4 . Above examples can be repeated with substituting YREG for XREG. 

04400 * 

04410 * Register Osage: 

04420 * CC= reflects value stored. 


04430 

* All other 

registers preserved. 

04440 

* 


04450 

STAXY MACR 


04460 

IFNC '\1', 

'XREG' 

04470 

IFNC '\1 

' , 'YREG' 

04480 

FAIL 

Macro syntax error detected! 

04490 

MEXIT 


04500 

ENDC 


04510 

ENDC 


04520 

IFC '\0', 1 

? t 

04530 

JSR 

STA\1 Default offsets 0 

04540 

MEXIT 


04550 

ENDC 


04560 

IFNC '\0',< 

? t 

04570 

ifeq \0 


04580 

JSR 

STA\1 Offsets 0 

04590 

MEXIT 


04600 

ENDC 


04610 

IFNE \0 


04620 

STA 

TEMPA$ 

04630 

LDA 

\12$+1 Set nREG= offset + nREG 

04640 

ADD 

#<\0)!.$FF 

04650 

STA 

\12$+1 

04660 

LDA 

\12$ 

04670 

ADC 

#{\0)*>8 

04680 

STA 

\12$ 

04690 

LDA 

TEMP A $ 

04700 

JSR 

STA\1 Offset^ 0 

04710 

LDA 

\11$ Restore nREG 

04720 

STA 

\12$ 

04730 

LDA 

\H$+1 

04740 

STA 

\12$+1 

04750 

LDA 

TEMPA$ 

04760 

MEXIT 


04770 

ENDC 


04780 

ENDC 


04790 

FAIL 

Macro syntax error detected! 

04800 

ENDM 



04810 




MOTOROLA 

11 


For More Information On This Product, 
Go to: www.freescale.com 


Freescale Semiconductor, Inc 


Freescale Semiconductor, Inc. 


04820 

********* ********************* 

04830 

* 

LDXR » load XREG 

04840 

* 

LDXR [# 

, ]<address> 

04850 

* 



04860 

* 

Examples: 


04870 

* 

1. "LDXR 

#,START" 

04880 

* 



04890 

* 

2. "LDXR 

START" 

04900 

* 



04910 

* 



04920 

* 

Register Usage: 

04930 

* 

CC » reflects MS half (=A) 

04940 

* 

All other 

registers preser 

04950 

* 



04960 

* 

Notes: 


04970 

* 

1. Byte access order is LS, 

04980 

* 



04990 

LDXR MACR 


05000 


IFEQ NARG-1 

05010 


STA 

TEMPA$ 

05020 


LDA 

<\0)+l 

05030 


STA 

XREG1$+1 

05040 


STA 

XREG2$+1 

05050 


LDA 

<\0) 

05060 


STA 

XREG1$ 

05070 


STA 

XREG2$ 

05080 


IFEQ XREG1$!.$FF00 

05090 


LDA 

TEMPA$ 

05100 


TST 

XREG1$ 

05110 


ENDC 


05120 


IFNE XREG1$!.$FF00 

05130 


STA 

TESTA$ 

05140 


LDA 

TEMPA$ 

05150 


TST 

TESTA$ 

05160 


ENDC 


05170 


MEXIT 


05180 


ENDC 


05190 


IFEQ NARG-2 

05200 


IFC ' 

\0', '#' 

05210 


IFEQ XREG1$ ?.$FF00 

05220 


IFEQ 

\1 

05230 


CLR 

XREG1$+1 

05240 


CLR 

XREG2$+1 

05250 


CLR 

XREG1$ 

05260 


CLR 

XREG2$ 

05270 


MEXIT 

05280 


ENDC 


05290 


IFNE 

\1 

05300 


STA 

TEMPA$ 

05310 


IFEQ 

<\1)?-$FF 

05320 


CLR 

XREG1$+1 

05330 


CLR 

XREG2$+1 

05340 


ENDC 


05350 


IFNE 

(\1)!•$FF 

05360 


LDA 

#(\1)!.$FF 

05370 


STA 

XREG1$+1 

05380 


STA 

XREG2$+1 

05390 


ENDC 


05400 


IFEQ 

(\1)!>8 

05410 


CLR 

XREG1$ 

05420 


CLR 

XREG2$ 

05430 


ENDC 



puts the value of symbol 'START' into the 
XREG. 

puts the contents of location 'START' and 
'START'+1 into the XREG. 


! XREG in low memory? 
? #0 value? 


? not #0 value? 


MOTOROLA 

12 


For More Information On This Product, 
Go to: www.freescale.com 




Freescale Semiconductor 


Freescale Semiconductor, Inc 



0 

c: 


i 



i 

I 

! 


I 

( 


05440 

05450 

05460 

05470 

05480 

05490 

05500 

05510 

05520 

05530 

05540 

05550 

05560 

05570 

05580 

05590 

05600 

05610 

05620 

05630 

05640 

05650 

05660 

05670 

05680 

05690 

05700 

05710 

05720 

05730 

05740 

05750 

05760 

05770 

05780 

05790 

05800 

05810 

05820 

05830 

05840 

05850 

05860 

05870 

05880 

05890 

05900 

05910 

05920 

05930 

05940 

05950 


IFNE (\1) !>8 
LDA #(\1)1>8 
STA XREG1$ 
STA XR£G2$ 
ENDC 

LDA TEMPA$ 
TST XREG1$ 
MEXIT 


ENDC 

ENDC 

IFNE XREG1$!.$FF0 
IFEQ \1 

STA TEMPA$ 
CLRA 

STA XREG1$+1 
STA XREG2$+1 
STA XREG1$ 
STA XR£G2$ 
CLR TESTA$ 
LDA TEMPA$ 

TST TESTA$ 
MEXIT 
ENDC 

IFNE \1 
STA 
IFEQ 
CLRA 
ENDC 
IFNE 
LDA 
ENDC 
STA 
STA 
IFEQ 
CLRA 
ENDC 
IFNE 
LDA 
ENDC 
STA 
STA 
STA 
LDA 
TST 
MEXIT 
ENDC 
ENDC 
ENDC 
ENDC 


TEMPA$ 
(\1)*.$FF 


<\1)!.$FF 
#<\1)!.$FF 

XREG1$+1 

XREG2$+1 

( U ) !>8 


(\ 1 ) !>8 

#(\ 1)!>8 

XREG1$ 

XREG2$ 

TESTA$ 

TEMPA$ 

TESTA$ 


| XREG in high memory? 
! #0 value? 


! not #0 value? 


FAIL Macro syntax error detected! 
ENDM 
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05960 ************************************************************************************** 

05970 * STXR * store XREG 

05980 * STXR <address> 

05990 * 

06000 * Examples: 

06010 * 1, "STXR START" stores the XREG into locations 1 START ' and 

06020 * 'START'+1, 

06030 * 

06040 * Register Usage: 

06050 * CC = reflects MS half <=A). 

06060 * All other registers preserved. 

06070 * 

06080 * Notes: 

06090 * 1. Byte access order is LS, then MS (reversed from 68HC11). 

06100 * 

06110 STXR MACR 

06120 STA TEMPA$ 

06130 LDA XREG1$+1 

06140 STA (\0)+l 

06150 LDA XREG1$ 

06160 STA (\0) 

06170 IFEQ XREG1$! . $FF00 

06180 LDA TEMPA$ 

06190 TST XREG1$ 

06200 ENDC 

06210 IFNE XREG1$! . $FF00 

06220 STA TESTA$ 

06230 LDA TEMPA$ 

06240 TST TESTA$ 

06250 ENDC 
06260 ENDM 

06270 

06280 ********************************************************************** ****** ********** 
06290 * INCXR ** increment XREG 

06300 * INCXR [[#,]<address>] 

06310 * 

06320 * Examples: 

06330 * 1. "INCXR" adds one (1) to the XREG. 

06340 * 2. "INCXR #, START" adds the value of symbol 'START' to the 

06350 * XREG. 

06360 * 3, "INCXR START" adds the contents of location 'START' and 

06370 * 'START'+1 to the XREG.' 

06380 * 4. "INCXR ! comment" adds one (1) to the XREG (comment present 1 ) 

06390 * 

06400 * Register Usage: 

06410 * CC » reflects value incremented (Z-bit only). 

06420 * All other registers preserved. 

06430 * 

06440 * Notes: 

06450 * 1. Explicit comment character (!) MUST be used when comment field is 

06460 * present to prevent confusion with parameters! 

06470 * 2. Assumes XREG1$ = XR£G2$. 

06480 * 3. When parameters are present, this macro becomes "ADD to XREG". 

06490 * 

06500 INCXR MACR 
06510 IFEQ NARG 


06520 

IFEQ 

XREG1$!.$FF00 

06530 

INC 

XREG1$+1 

06540 

INC 

XREG2$+1 

06550 

BNE 

\.o 

06560 

INC 

XREG1$ 

06570 

INC 

XREG2$ 

06580 \.0 

EQU 

* 

06590 

MEXIT 


06600 ENDC 


MOTOROLA 

14 


For More Information On This Product, 
Go to: www.freescale.com 


AN1055 


Freescale Semiconductor, Inc 


Freescale Semiconductor, Inc 




06610 IFNE XREG1$!.$FF00 


06620 

STA 

TEMPA$ 

06630 

LDA 

XREG1$+1 

06640 

ADD 

#1 

06650 

STA 

XREG1$+1 

06660 

STA 

XREG2$+1 

06670 

LDA 

XR£G1$ 

06660 

ADC 

#0 

06690 

STA 

XREG1$ 

06700 

STA 

XREG2$ 

06710 

ORA 

XREG1$+1 

06720 

STA 

TESTA$ 

06730 

LDA 

TEMPA$ 

06740 

TST 

TESTA$ 

06750 

MEXIT 


06760 

ENDC 


06770 

ENDC 


06780 

IFEQ NARG-1 

06790 

STA 

TEMPA$ 

06800 

LDA 

XREG1$+1 

06810 

ADD 

<\0>+l 

06820 

STA 

XREG1$+1 

06830 

STA 

XREG2$+1 

06840 

LDA 

XREG1$ 

06850 

ADC 

\0 

06860 

STA 

XREG1$ 

06870 

STA 

XREG2$ 

06880 

ORA 

XREG1$+1 

06890 

STA 

TESTA$ 

06900 

LDA 

TEMP A $ 

06910 

TST 

TESTA$ 

06920 

MEXIT 


06930 

ENDC 


06940 

IFEQ NARG-2 

06950 

IFC ' 

\0', '#' 

06960 

STA 

TEMPA$ 

06970 

LDA 

XREG1$+1 

06980 

ADD 

#(\1)!.$FF 

06990 

STA 

XREG1$+1 

07000 

STA 

XREG2$+1 

07010 

LDA 

XREG1$ 

07020 

ADC 

#(\1)!>8 

07030 

STA 

XREG1$ 

07040 

STA 

XREG2$ 

07050 

ORA 

XREG1$+1 

07060 

STA 

TESTA$ 

07070 

LDA 

TEMPA$ 

07080 

TST 

TESTA$ 


07090 MEXIT 

07100 ENDC 

07110 ENDC 

07120 FAIL Macro syntax error detected! 

07130 ENDM 

07140 
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07150 

07160 

07170 

07180 

07190 

07200 

07210 

07220 

07230 

07240 

07250 

07260 

07270 

07280 

07290 

07300 

07310 

07320 

07330 

07340 

07350 

07360 

07370 

07380 


Freescale Semiconductor, Inc. 

nuiryp a: VOl>r> 


DECXR * decrement XREG 
DECXR [[#,]<address>] 

Examples: 

1. "DECXR" 

2. "DECXR #, START" 

3. "DECXR START" 

4 . "DECXR ! comment" 


subtracts one (1) from the XREG. 
subtracts the value of symbol 'START' from 
the XREG. 

subtracts the contents of location 'START' 

and 'START'+1 from the XREG. 

subtract one from the XREG (comment present?) 


* Register Usage: 

* CC = reflects value decremented (Z-bit only). 

* All other registers preserved. 

* 

* Notes: 

* 1. Explicit comment character {!) MOST be used when comment field is 

* present ? 

* 2. Assumes XREG1$ = XREG2$. 

* 3. When parameters are present, this macro becomes "SUBTRACT from XREG" 

* 

DECXR MACR 
IFEQ NARG 


07390 

STA 

TEMPA$ 

07400 

LDA 

XREG1$+1 

07410 

SUB 

#1 

07420 

STA 

XREG1$+1 

07430 

STA 

XREG2$+1 

07440 

LDA 

XREG1$ 

07450 

SBC 

#0 

07460 

STA 

XREG1$ 

07470 

STA 

XREG2$ 

07480 

ORA 

XREG1$+1 

07490 

STA 

TESTA$ 

07500 

LDA 

TEMPA$ 

07510 

TST 

TESTA$ 

07520 

MEXIT 


07530 

ENDC 


07540 

IFEQ NARG-1 

07550 

STA 

TEMFA$ 

07560 

LDA 

XREG1$+1 

07570 

SUB 

(\0)+l 

07580 

STA 

XREG1$+1 

07590 

STA 

XR£G2$+1 

07600 

LDA 

XREG1$ 

07610 

SBC 

\o 

07620 

STA 

XREG1$ 

07630 

STA 

XREG2$ 

07640 

ORA 

XREG1$+1 

07650 

STA 

TESTA$ 

07660 

LDA 

TEMPA$ 

07670 

TST 

TESTA$ 

07680 

MEXIT 


07690 

ENDC 
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07700 

07710 

07720 

07730 

07740 

07750 

07760 

07770 

07780 

07790 

07800 

07810 

07820 

07830 

07840 

07850 

07860 

07870 

07880 

07890 

07900 

07910 

07920 

07930 

07940 

07950 

07960 

07970 

07980 

07990 

08000 

06010 

08020 

08030 

08040 

08050 


IFEQ NARG-2 

IFC '\0','#' 

STA TEMPA$ 

LDA XREG1$+1 
SXJB #(\1)!.$FF 
STA XREG1$+1 
STA XREG2$+1 
LDA XREG1$ 

SBC #(\1)!>8 
STA XREG1$ 

STA XREG2$ 

ORA XREG1$+1 
STA TESTA$ 

LDA TEMPA$ 

TST TESTA$ 

MEXIT 

ENDC 

ENDC 

FAIL Macro syntax error detected! 

ENDM 

************************************************************************************** 

* CPXR = compare XREG 

* CPXR [#, ]<address> 


* Examples: 

* 1. "CPXR #,BLOCKSZ" 

* 

* 2."CPXR START" 


compares the value of symbol 'BLOCKSZ' 
with the XREG. 

compares the contents of location 
'START' and 'START'+1 with the XREG. 


* Register Usage: 

* CC = reflects XREG comparison (Z-bit only). 

* All other registers preserved. 

* 

CPXR MACR 


08060 

IFEQ NARG 

-1 


08070 

STA 

TEMPA$ 


08080 

BSET 

0, TESTA$ 

Preset for ,NE. condition 

08090 

LDA 

XREG1$+1 


08100 

CMP 

<\0)+l 


08110 

BNE 

\.o 

Branch if LS half is .NE. 

08120 

LDA 

XREG1$ 


08130 

CMP 

(\0) 


08140 

BNE 

VO 

Branch if MS half is .NE. 

08150 

CLR 

TESTA$ 

Set for .EQ. condition! 

08160 

\.0 LDA 

TEMPA$ 


08170 

TST 

TESTA$ 

Set proper Z-bit (.EQ. or 

08180 

MEXIT 



08190 

ENDC 
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08200 

IFEQ NARG-2 



08210 


IFC '\0' 

, '#' 


08220 


IFEQ \1 



08230 


IFEQ 

XREG1$!.$FF00 


08240 


TST 

XREG1$+1 


08250 


BNE 

\.o 

Branch if LS half is .NE. 

08260 


TST 

XREG1$ 


08270 

\.o 

EQU 

* 


08280 


MEXIT 


08290 


ENDC 



08300 


IFNE 

XREG1$!.$FF00 


08310 


STA 

TEMPA$ 


08320 


BSET 

0,TESTA$ 

Preset for .NE. condition? 

08330 


LDA 

XREG1$+1 


08340 


BNE 

\.o 

Branch if MS half is .NE. 

08350 


LDA 

XREG1$ 


08360 


BNE 

\.o 

Branch if MS half is .NE. 

08370 


CLR 

TESTA$ 

Set for ,EQ. condition? 

08380 

\.o 

LDA 

TEMPA$ 

Set proper Z-bit (,EQ. or .NE.) 

08390 


TST 

TESTA$ 

08400 


MEXIT 


08410 


ENDC 



06420 


ENDC 



08430 


STA 

TEMPA$ 


08440 


BSET 

0,TESTA$ 

Preset for .NE. condition! 

08450 


LDA 

XREG1$+1 


08460 


IFNE 

(\1)!.$FF 


08470 


CMP 

#(\1)!.$FF 


08480 


ENDC 



08490 


BNE 

Vo 

Branch if LS half is .NE. 

08500 


LDA 

XREG1$ 


08510 


IFNE 

(U) ■ >8 


08520 


CMP 

#(\1)!>8 


08530 


ENDC 



08540 


BNE 

VO 

Branch if MS half is .NE. 

08550 


CLR 

TESTA$ 

Set for .EQ. condition! 

08560 

V0 

LDA 

TEMPA$ 

Set proper Z-bit {.EQ. or .NE.)! 

08570 


TST 

TESTA$ 

08580 


MEXIT 



08590 

ENDC 



08600 

08610 

ENDC 

FAIL 

Macro syntax 

error detected! 

08620 

08630 


ENDM 
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08640 

08650 

08660 

08670 

08680 

08690 

08700 

08710 

08720 

08730 

08740 

08750 

08760 

08770 

08780 

08790 


******************************************************************** ****************** 

* LDYR = load YREG 

* LDYR [#,]<address> 


* Examples: 

* 1. "LDYR #,START" 

* 

* 2. "LDYR START" 


puts the value of symbol 'START' into the 
YREG 

puts the contents of location 'START' and 
'START' +1 into the YREG. 


* Register Usage: 

* CC * reflects MS half. 

* All other registers preserved. 


LDYR 

IFEQ 


MACR 

NARG-1 


08800 

STA 

TEMPA$ 

08810 

LDA 

(\0) 

06820 

STA 

YREG1$ 

08830 

STA 

YREG2$ 

08840 

LDA 

(\0)+l 

08850 

STA 

YREG1$+1 

08860 

STA 

YREG2$+1 

08870 

IFEQ 

YREG1S1.$FF00 

08880 

LDA 

TEMP A $ 

08890 

TST 

YREG1$ 

08900 

ENDC 


08910 

IFNE 

YREG1$!.$FFO0 

08920 

STA 

TESTA$ 

08930 

LDA 

TEMPA$ 

08940 

TST 

TESTA$ 

08950 

ENDC 


08960 

MEXIT 

08970 

ENDC 


08980 

IFEQ NARG-2 

08990 

IFC 

'\0' , 

09000 

IFEQ 

YREG1$!.$FF 

09010 

IFEQ 

\1 


09020 

09030 

09040 

09050 

09060 

09070 

09080 

09090 

09100 

09110 

09120 

09130 

09140 

09150 

09160 

09170 

09180 

09190 

09200 

09210 

09220 

09230 

09240 

09250 

09260 

09270 


! YREG in low memory? 
! #0 value? 


CLR 

CLR 

CLR 

CLR 

MEX1T 


STA 

IFEQ 

CLR 

CLR 

ENDC 

IFNE 

LDA 

STA 

STA 

ENDC 

IFEQ 

CLR 

CLR 

ENDC 

IFNE 

LDA 

STA 

STA 

ENDC 


YREG1$+1 

YREG2$+1 

YREG1$ 

YREG2$ 


TEMPA$ 

(\1)!.$FF 
YREG1$+1 
YREG2$+1 

(\1)!.$FF 
#(1)!.$FF 
YREG1$+1 
YREG2$+1 

(\1)?>8 
YREG1$ 
YREG2$ 

(\1)!>8 
#(\ 1)!>8 
YREG1$ 
YREG2$ 


not #0 value? 
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09280 

LDA 

TEMPA$ 

09290 

TST 

YREG1$ 

09300 

MEXIT 

09310 

ENDC 


09320 

ENDC 


09330 

IFNE YREG1 $ ! . $FF0 0 

09340 

IFEQ \1 


09350 

STA 

TEME>A$ 

09360 

CLRA 


09370 

STA 

YREG1$+1 

09380 

STA 

YREG2$+1 

09390 

STA 

YREG1$ 

09400 

STA 

YREG2$ 

09410 

CLR 

TESTA$ 

09420 

LDA 

TEMPA$ 

09430 

TST 

TESTA$ 

09440 

MEXIT 


09450 

ENDC 


09460 

IFNE \1 


09470 

STA 

TEMPA$ 

09480 

IFEQ 

(\1)1.$FF 

09490 

CLRA 


09500 

ENDC 


09510 

IFNE 

<\1)!.$FF 

09520 

LDA 

#(\1)!.$FT 

09530 

ENDC 


09540 

STA 

YBEG1$+1 

09550 

STA 

YREG2$+1 

09560 

IFEQ 

(\1)!>8 

09570 

CLRA 

09580 

ENDC 


09590 

IFNE 

(\1)!>8 

09600 

LDA 

#(\1)!>8 

09610 

ENDC 


09620 

STA 

YREG1$ 

09630 

STA 

YREG2$ 

09640 

STA 

TESTA$ 

09650 

LDA 

TEMPA$ 

09660 

TST 

TESTA$ 

09670 

MEXIT 

09680 

ENDC 


09690 

ENDC 


09700 

ENDC 


09710 

ENDC 


09720 

FAIL 

Macro syntax 

09730 

ENDM 



! YREG in high memory? 
! #0 value? 


not #0 value? 


09740 

09750 

09760 

09770 


************************************************************************************** 

* STYR * store YREG 

* STYR <address> 


09780 

* 



09790 

* 

Examples: 


09800 

* 

1."STYR 

START" stores 

09810 

* 


'START 

09820 

★ 



09830 

* 

Register Usage: 

09840 

* 

CC = reflects MS half. 

09850 

* 

All other registers preserved. 

09860 

* 



09870 

STYR 

MACR 


09860 


STA 

TEMPA$ 

09890 


LDA 

YREG1$ 

09900 


STA 

<\0) 

09910 


LDA 

YREG1$+1 

09920 


STA 

<\0)+l 
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09930 

IFEQ 

YREG1$!.$FF00 


09940 

LDA 

TEMPA$ 


09950 

TST 

YREG1$ 

. 

09960 

ENDC 



09970 

IFNE 

YREG1$!.$FF00 


09980 

STA 

TESTA$ 


09990 

LDA 

TEMPA$ 


10000 

TST 

TBSTA$ 


10010 

ENDC 



10020 

ENDM 




10030 

10040 

10050 

10060 

10070 

10080 

10090 

10100 

10110 

10120 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 


******************************************************************************* ******* 

* INCYR * increment. YREG 

* INCYR [[#,]<value>] 


* Examples: 

* 1. "INCYR" 

* 2 . " INCYR #, START" 

* 

* 3. "INCYR START" 

* 

* 4. "INCYR ! comment“ 


adds one (1) to the YREG. 

adds the value of symbol 'START' to the 

YREG. 

adds the contents of location 'START' and 
'START'+1 to the YREG. 

adds one (1) to the YREG (comment present!). 


* Register Usage: 

* CC = reflects value incremented (Z-bit only). 

* All other registers preserved. 

* 

* Notes: 

* 1. Explicit comment character (!) MUST be used when comment field is 

* present! 

* 2. Assumes YREG1$ = YREG2$. 

* 3. When parameters are present, this macro becomes "ADD to YREG". 

* 

INCYR MACR 
IFEQ NARG 


10280 

IFEQ 

YR£Gl$t.$FF00 

10290 

INC 

YREG1$+1 

10300 

INC 

YREG2$+1 

10310 

BNE 

\.o 

10320 

INC 

YREG1$ 

10330 

INC 

YREG2$ 

10340 

\. 0 EQU 

* 

10350 

MEXIT 

10360 

ENDC 


10370 

IFNE 

YREG1$!.$FF00 

10380 

STA 

TEMPA$ 

10390 

LDA 

YREG1$+1 

10400 

ADD 

#1 

10410 

STA 

YREG1$+1 

10420 

STA 

YREG2$+1 

10430 

LDA 

YREGl? 

10440 

ADC 

#0 

10450 

STA 

YREGl$ 

10460 

STA 

YREG2$ 

10470 

ORA 

YREG1$+1 

10480 

STA 

TESTA$ 

10490 

LDA 

TEMP A $ 

10500 

TST 

TESTA$ 

10510 

MEXIT 

10520 

ENDC 
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10540 


IFEQ NARG-1 



10550 


STA 

TEMPA$ 



10560 


LDA 

YREG1$+1 



10570 


ADD 

(\0)+l 



10580 


STA 

YR£G1$+1 



10590 


STA 

YR£G2$+1 



10600 


LDA 

YREG1$ 



10610 


ADC 

\o 



10620 


STA 

YREG1$ 



10630 


STA 

YREG2$ 



10640 


ORA 

YREG1$+1 



10650 


STA 

TESTA$ 



10660 


LDA 

TEMPA$ 



10670 


TST 

TESTA$ 



10680 


MEXIT 




10690 


ENDC 




10700 


IFEQ NARG-2 



10710 


IFC 

s \0', 



10720 


STA 

TEMPA$ 



10730 


LDA 

YREG1$+1 



10740 


ADD 

#(\1)!,$FF 



10750 


STA 

YREG1$+1 



10760 


STA 

YREG2S+1 



10770 


LDA 

YREG1$ 



10780 


ADC 

#(\1)?>8 



10790 


STA 

YREG1$ 



10800 


STA 

YREG2$ 



10810 


ORA 

XREG1$+1 



10820 


STA 

T£STA$ 



10830 


LDA 

TEMPA$ 



10840 


TST 

TESTA$ 



10850 


MEXIT 




10860 


ENDC 




10870 


ENDC 




10880 


FAIL 

Macro syntax error detected? 


10890 


ENDM 




10900 






10910 

*************************************************************************i 

10920 

* 

DECYR =s decrement YREG 



10930 

* 

DECYR 

[[#,]<value>] 



10940 

* 





10950 

* 

Examples: 




10960 

* 

1. "DECYR" 

subtracts one 

(1) from 

the YREG. 

10970 

* 

2. "DECYR 

#, START" subtracts the 

value of 

symbol 'START' from 

10980 

* 


the YREG. 



10990 

* 

3. "DECYR 

START" subtracts the 

contents 

of location 'START' 

11000 

* 


and 'START'+1 

from the 

YREG. 

11010 

* 

4. "DECYR 

! comment" subtracts one 

from the 

YREG (comment present? 

11020 

* 





11030 

* 

Register Usage: 



11040 

* 

CC = reflects value decremented (Z-bit 

only). 


11050 

* 

All other 

registers preserved. 



11060 

* 





11070 

* 

Notes: 




11080 

* 

1. Explicit comment character (!) MUST 

be used when comment field is 

11090 

* 

present 

! 



11100 

* 

2. Assumes 

YREG1$ = YREG2 $. 



11110 

* 

3. When parameters are present, this macro becomes "SUBTRACT from YREG' 

11120 

* 
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! 

I 



11130 

DECYR MACR 


11140 

IFEQ 

NARG 

11150 

STA 


TEMPA$ 

11160 

LDA 


YREG1$+1 

11170 

SUB 


#1 

11180 

STA 


YREG1$+1 

11190 

STA 


YREG2$+1 

11200 

LDA 


YREG1$ 

11210 

SBC 


#0 

11220 

STA 


YREG1$ 

11230 

STA 


YREG2$ 

11240 

ORA 


YREG1$+1 

11250 

STA 


TESTA$ 

11260 

LDA 


TEMPA$ 

11270 

TST 


TESTA$ 

11280 

MEXIT 


11290 

ENDC 



11300 

IFEQ 

NARG—1 

11310 

STA 


TEMPAS 

11320 

LDA 


YREG1$+1 

11330 

SUB 


(\0)+l 

11340 

STA 


YREG1$+1 

11350 

STA 


YREG2$+1 

11360 

LDA 


YREG1$ 

11370 

SBC 


\o 

11380 

STA 


YREG1$ 

11390 

STA 


YREG2$ 

11400 

ORA 


YREG1$+1 

11410 

STA 


TESTA$ 

11420 

LDA 


TEMPA$ 

11430 

TST 


TESTA$ 

11440 

MEXIT 


11450 

ENDC 



11460 

IFEQ 

NARG-2 

11470 

IFC 


'\0', '#' 

11480 

STA 


TEMPA$ 

11490 

LDA 


YREG1$+1 

11500 

SUB 


#(\1)!.$FF 

11510 

STA 


YREG1$+1 

11520 

STA 


YREG2$+1 

11530 

LDA 


YR£G1$ 

11540 

SBC 


#(\1)!>8 

11550 

STA 


YREG1$ 

11560 

STA 


YREG2$ 

11570 

ORA 


YREG1$+1 

11580 

STA 


TESTA$ 

11590 

LDA 


TEMPA$ 

11600 

TST 


TESTA$ 

11610 

MEXIT 



11620 ENDC 

11630 ENDC 

11640 FAIL Macro syntax error detected' 

11650 ENDM 

11660 
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11670 

11680 

11690 

11700 

11710 

11720 

11730 

11740 

11750 

11760 

11770 

11780 

11790 

11800 


★a************************************************************************************ 

* CPYR * compare YREG 

* CPYR [#, ]<address> 

* 

* Examples: 

* l."CPYR #,BLOCKSZ" compares the value of symbol 'BLOCKSZ' 

* with the YREG. 

* 2. "CPYR START" compares the contents of location 

'START' and 'START' +1 with the YREG. 


Register Usage: 

CC = reflects YREG comparison (Z-bit only) 
All other registers preserved. 


11810 

CPYR 

MACR 



11820 

IFEQ 

NARG-1 


11830 


STA 

TEMPA$ 


11840 


BSET 

0,TESTA$ 

Preset for .NE. condition 1 

11850 


LDA 

YREG1$+1 


11860 


CMP 

(\0)+l 


11870 


BNE 

\.o 

Branch if LS half is .NE. 

11880 


LDA 

YREG1$ 


11890 


CMP 

(\0) 


11900 


BNE 

N.o 

Branch if MS half is -NE. 

11910 


CLR 

TESTA$ 

Set for .EQ. condition! 

11920 

N.o 

LDA 

TEMPA$ 


11930 


TST 

TESTA$ 

Set proper Z-bit (.EQ. or 

11940 


MEXIT 



11950 

ENDC 




11960 

IFEQ 

NARG-2 


11970 

IFC 

\0', '#' 


11980 


IFEQ 

\l 


11990 


IFEQ 

YREG1$!.$FF00 

12000 


TST 

YREG1$+1 


12010 


BNE 

N.O 

Branch if LS half is 

12020 


TST 

YREG1$ 


12030 

\.o 

EQU 

* 



12040 

12050 

12060 


YREG1$!.$FF00 


12070 


STA 

TEMPA$ 


12080 


BSET 

0, TESTA$ 

Preset for .NE. condition! 

12090 


LDA 

YREG1$+1 


12100 


BNE 

N.o 

Branch if MS half is .NE. 

12110 


LDA 

YREG1$ 


12120 


BNE 

N.O 

Branch if MS half is .NE. 

12130 


CLR 

TESTA$ 

Set for .EQ. condition! 

12140 

N.O 

LDA 

TEMPA$ 


12150 


TST 

TESTA$ 

Set proper Z-bit (.EQ. or 

12160 


MEXIT 



12170 

ENDC 




12180 

ENDC 




12190 

STA 

TEMPA$ 


12200 

BSET 

o. 

TESTA$ 

Preset for .NE. condition! 

12210 

LDA 

YREG1$+1 


12220 

IFNE 

<\D 

! . $FF 


12230 

CMP 

#(N1)?.$FF 


12240 

ENDC 




12250 

BNE 

N. 

0 

Branch if LS half is .NE. 

12260 

LDA 

YREG1$ 


12270 

IFNE 

(\D !>8 


12280 

CMP 

#(\1)!>8 


12290 

ENDC 
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3 


12300 

BNE 

\.o 

Branch if MS half is .NE. 

12310 

CLR 

TESTA$ 

Set for .EQ. condition! 

12320 

\.0 LDA 

TEMPA$ 


12330 

TST 

TESTA$ 

Set proper Z-bit (.EQ. or 

12340 

MEXIT 



12350 

ENDC 



12360 

ENDC 



12370 

FAIL 

Macro syntax 

error detected! 

12380 

ENDM 




12390 

12400 

12410 

12420 

12430 

12440 

12450 

12460 

12470 

12480 

12490 

12500 

12510 

12520 

12530 

12540 

12550 

12560 

12570 

12580 

12590 

12600 

12610 

12620 

12630 

12640 

12650 

12660 


************************************************************************************** 

* DEC.B = decrement byte 

* DEC.B [[#, ]<value>,]<address> 

* 

* where: 

* <value> = value to decrement the contents of the <address> 

* location by; immediate present) or absolute 

* addressing ("#," not present). If only <address> is 

* specified, a default immediate value of one is used. 


Examples: 

1. "DEC .B START" 

2. "DEC.B #,5,START" 

3. "DEC . B CNT, START" 


subtracts one from the contents of 
location 'START'. 

subtracts five from the contents of 
location 'START'. 

subtracts the contents of location 'CNT' 
from the contents of location 'START', 


Register Usage: 

CC — reflects value decremented (N and Z-bits). 
All other registers preserved. 


* Notes: 

* 1. <address> may be direct or extended! 

* 2. This macro essentially performs a "SUB n" function. 

* 

DEC.B MACR 


12670 

IFEQ 

NARG-1 

12680 

IFEQ 

(\0)!.$FF( 

12690 

DEC 

\o 

12700 

MEXIT 

12710 

ENDC 


12720 

STA 

TEMPA$ 

12730 

LDA 

\o 

12740 

SUB 

#1 

12750 

STA 

\o 

12760 

STA 

TESTA$ 

12770 

LDA 

TEMPA$ 

12780 

TST 

TESTA$ 

12790 

MEXIT 

12800 

ENDC 


12810 

IFEQ 

NARG-2 

12820 

STA 

TEMP A$ 

12830 

LDA 

\1 

12840 

SUB 

\o 

12850 

STA 

\1 

12860 

IFEQ 

(\1)!.$FF00 

12870 

LDA 

TEMP A$ 

12880 

TST 

\1 

12890 

MEXIT 

12900 

ENDC 
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12910 


IFNE 

(\1)!.$FF00 

12920 


STA 

TESTA$ 

12930 


LDA 

TEMPA$ 

12940 


TST 

TESTA$ 

12950 


MEXIT 


12960 


ENDC 


12970 


ENDC 


12980 


IFEQ NARG-3 

12990 


IFC 

'\0', 

13000 


STA 

TEMPA$ 

13010 


LDA 

\2 

13020 


SUB 

#\1 

13030 


STA 

\2 

13040 


IFEQ 

(\2)!.$FF00 

13050 


LDA 

TEMPA$ 

13060 


TST 

\2 

13070 


MEXIT 


13080 


ENDC 


13090 


IFNE 

(\2)!.$FF00 

13100 


STA 

TESTA$ 

13110 


LDA 

TEMPA$ 

13120 


TST 

TESTA$ 

13130 


MEXIT 


13140 


ENDC 


13150 


ENDC 


13160 

ENDC 


13170 


FAIL 

Macro syntax error detected! 

13180 


ENDM 


13190 




13200 

*********************************************************************** 

13210 

* 

DEC.W = decrement word 

13220 

* 

DEC. W 

[l#/]<value>,]<address> 

13230 

* 



13240 

* 

where: 


13250 

* 

<value> 

= value to decrement the contents of the <address> and 

13260 

* 


<address>+l locations by; immediate present) or 

13270 

it 


absolute addressing not present). If only 

13280 

He 


<address> is specified, a default intmedi.ate value of 

13290 

* 


one is used. 

13300 

* 



13310 

* 

Examples: 


13320 

* 

l."DEC.W START'' subtracts one from the contents of loca- 

13330 

* 


tions 'START' and 'START'+1. 

13340 

* 

2. "DEC. 

W CNT,START" subtracts the contents of locations 'CNT' 

13350 

* 


and 'CNT'+1 from the contents of locations 

13360 

* 


'START' and 'START'+1. 

13370 

* 

3. "DEC. 

W #,5,START" subtracts five from the contents of loca¬ 

13380 

* 


tions 'START' and 'START'+1. 

13390 

* 



13400 

★ 

Register Osage: 

13410 

* 

CC = reflects value incremented (Z-bit only). 

13420 

* 

All other registers preserved. 

13430 

* 



13440 

* 

Notes: 


13450 

* 

1. <address> may be direct or extended! 

13460 

* 

2. This 

macro essentially performs a "SUB n" function. 

13470 

it 
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13480 DEC. W MACR 
13490 IFEQ NARG-1 


13500 

STA 

TEMPA$ 

13510 

LDA 

<\0)+l 

13520 

SUB 

#1 

13530 

STA 

<\0)+l 

13540 

LDA 

\0 

13550 

SBC 

#0 

13560 

STA 

\0 

13570 

ORA 

(\0)+i 

13580 

STA 

TESTA$ 

13590 

LDA 

TEMPA$ 

13600 

TST 

TESTA3 

13610 

MEXIT 


13620 

ENDC 


13630 

IFEQ NARG-2 

13640 

STA 

TEMPA$ 

13650 

LDA 

(\1)+1 

13660 

SUB 

(\0)+l 

13670 

STA 

(\1)+1 

13680 

LDA 

\1 

13690 

SBC 

\o 

13700 

STA 

\1 

13710 

ORA 

(\1)+1 

13720 

STA 

TESTA$ 

13730 

LDA 

TEMPA$ 

13740 

TST 

TESTA$ 

13750 

MEXIT 


13760 

ENDC 


13770 

IFEQ NARG-3 

13780 

IFC 

\0', '#' 

13790 

STA 

TEMP A $ 

13800 

LDA 

(\2)+1 

13810 

SUB 

# (M) ! *$FF 

13820 

STA 

(\2)+1 

13830 

LDA 

\2 

13840 

SBC 

#<\1>!>8 

13850 

STA 

\2 

13860 

ORA 

(\2)+1 

13870 

STA 

TESTA$ 

13880 

LDA 

TEMPA$ 

13890 

TST 

TESTA$ 

13900 

MEXIT 



13910 ENDC 

13920 ENDC 

13930 FAIL Macro syntax error detected! 

13940 ENDM 

13950 
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13960 

13970 

13980 

13990 

14000 

14010 

14020 

14030 

14040 

14050 

14060 

14070 

14080 

14090 

14100 

14110 

14120 

14130 

14140 

14150 

14160 

14170 

14180 

14190 

14200 

14210 

14220 

14230 

14240 

14250 

14260 

14270 

14280 

14290 

14300 

14310 

14320 

14330 

14340 

14350 

14360 

14370 

14380 

14390 

14400 

14410 

14420 

14430 

14440 

14450 

14460 

14470 

14480 

14490 

14500 

14510 

14520 

14530 


************************************************* 


******************************************************»**»*’ r ’ pww """ w - 

* INC.B « increment byte 

* INC .B [[#,3<value>,]<address> 

* 

* where: 

* <value> = value to decrement the contents of the <address> 

* location by; immediate <"#," present) or absolute 

* addressing not present). If only <address> is 

* specified, a default immediate value of one is used. 


* Examples: 

* 1."INC.B START" 

* 

* 2 . "INC.B #,5,START" 

* 

* 3 . "INC.B CNT,START" 


adds one to the contents of location 
'START' . 

adds five to the contents of location 
'START' . 

adds the contents of location 'CNT' to 
the contents of location 'START'. 


* Register Usage: 

* CC- reflects value incremented <N and Z-bits). 

* All other registers preserved. 

* 

* Notes: 

* 1 . <address> may be direct or extended! 

* 2. This macro essentially performs an "ADD n" function. 

* 

INC.B MACR 

IFEQ NARG-1 

IFEQ (\0) ! . $FF00 

INC \0 
MEXIT 
ENDC 

STA TEMFA$ 

LDA \0 
ADD #1 
STA \0 
STA TESTA$ 

LDA TEMPA$ 

TST TESTA$ 

MEXIT 

ENDC 

IFEQ NARG-2 

STA TEMPA$ 

LDA \1 
ADD \0 
STA \1 

IFEQ <\1)!.$FF00 
LDA TEMPA$ 

TST \1 
MEXIT 

ENDC 

IFNE (\1)!.$FF00 

STA TESTA$ 

LDA TEMPA$ 

TST TESTA$ 

MEXIT 

ENDC 
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14540 

14550 

14560 

14570 

14580 

14590 

14600 

14610 

14620 

14630 

14640 

14650 

14660 

14670 

14680 

14690 

14700 

14710 

14720 

14730 

14740 

14750 

14760 

14770 

14780 

14790 

14800 

14810 

14820 

14830 

14840 

14850 

14860 

14870 

14880 

14890 

14900 

14910 

14920 

14930 

14940 

14950 

14960 

14970 

14980 

14990 

15000 

15010 

15020 

15030 

15040 

15050 

15060 

15070 

15080 

15090 

15100 

15110 


IFEQ NARG-3 

IFC '\0','#' 

STA TEMPA$ 

LDA \2 
ADD #1 
STA \2 

IFEQ (\2)!.$FFG0 
LDA TEMPA$ 

TST \2 
MEXIT 
ENDC 

IFNE <\2)!.$FF00 
STA TESTA$ 

LDA TEMPA$ 

TST TESTA$ 

MEXIT 

ENDC 

ENDC 

ENDC 

FAIL Macro syntax error detected! 

ENDM 

************************************************************************************** 

* INC.W = increment word 

* INC.W [[#,]<value>,J<address> 

* 

* where: 

* <value> — value to increment the contents of the <address> and 

* <address>+l locations by; immediate present) 

* or absolute addressing not present). If only 

* <address> is specified, a default immediate value of 

* one is used. 

* 

* Examples: 


1 . 

"INC.W 

START" 

adds one to the contents 
'START' and 'START' 4-1. 

of locations 

2. 

"INC.W 

CNT,START" 

adds the value of 'CNT' to the contents 
of locations 'START' and 'START'+1. 

3. 

"INC.W 

#,5,START" 

adds five to the contents 
'START' and 'START'+1. 

of locations 


* Register Usage: 

* CC = reflects value incremented (Z-bit only). 

* All other registers preserved. 

* 

* Notes: 

* 1. <address> may be direct or extended! 

* 2. This macro essentially performs an "ADD n" function. 


INC.W 

IFEQ 


MACR 

NARG-1 


IFEQ 

INC 

BNE 

INC 

EQU 

MEXIT 

ENDC 


<\0) \ ,$FF00 
(\0)+l 
\,0 
\0 
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15120 

IFNE 

(\0)!.$FF00 

15130 

STA 

TEMPA$ 

15140 

LDA 

(\0)+l 

15150 

ADD 

#1 

15160 

STA 

(\0)+l 

15170 

LDA 

\0 

15180 

ADC 

#0 

15190 

STA 

\0 

15200 

ORA 

(\0)+l 

15210 

STA 

TESTA$ 

15220 

LDA 

TEMPA$ 

15230 

TST 

TESTA$ 

15240 

MEXIT 


15250 

ENDC 


15260 

ENDC 


15270 

IFEQ NARG-2 

15280 

STA 

TEMPA$ 

15290 

LDA 

<\1)+1 

15300 

ADD 

(\0)+l 

15310 

STA 

(U)+i 

15320 

LDA 

\1 

15330 

ADC 

\0 

15340 

STA 

\l 

15350 

ORA 

(\1)+1 

15360 

STA 

TESTA$ 

15370 

LDA 

TEMPA$ 

15380 

TST 

TESTA$ 

15390 

MEXIT 


15400 

ENDC 


15410 

IFEQ NARG-3 

15420 

IFC 

15430 

STA 

TEMP AS 

15440 

LDA 

(\2)+1 

15450 

ADD 

#(\1)!.$FF 

15460 

STA 

(\2)+l 

15470 

LDA 

\2 

15480 

ADC 

#(\1)!>8 

■15490 

STA 

\2 

15500 

ORA 

(\2)+l 

15510 

STA 

TESTAS 

15520 

LDA 

TEMPAS 

15530 

TST 

TESTA$ 

15540 

MEXIT 


15550 

ENDC 


15560 

ENDC 


15570 

FAIL 

Macro synti 

15580 

ENDM 


15590 
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15600 

15610 

15620 

15630 

15640 

15650 

15660 

15670 

15680 

15690 

15700 

15710 

15720 

15730 

15740 

15750 

15760 

15770 

15780 

15790 

15800 

15810 

15820 

15830 

15840 

15850 

15860 

15870 

15880 

15890 

15900 

15910 

15920 

15930 

15940 

15950 

15960 

15970 

15980 

15990 

16000 

16010 

16020 

16030 

16040 

16050 

16060 

16070 

16080 

16090 

16100 

16110 

16120 

16130 

16140 

16150 

16160 

16170 

16180 

16190 

16200 

16210 

16220 


************************************************************************************** 

* MOV.B - move byte 

* MOV.B [#,]<byte>,<address> 

* 

* where: 

* <byte> = byte value to move to the <address> location, using 

* immediate ("#," present) or absolute addressing 

* not present). 


* Examples: 

* 1. "MOV. B CNT, TMP " 

* 

* 2 . "MOV. B #, 5, START" 


puts the contents of location 'CNT' 

into location 'TMP'. 

puts 5 into location 'START'. 


* Register Usage: 

* CC = reflects value moved. 

* All other registers preserved. 

* 

MOV. B MACR 

IFEQ NARG-2 

STA TEMPA$ 

LDA \0 

STA \1 

IFEQ (\1)!.$FF00 

LDA TEMPA$ 

TST \1 

MEXIT 

ENDC 

IFNE <\1)!.$FF00 
IFEQ (\0) ! . $FF00 
LDA TEMPA$ 

TST \0 

MEXIT 
ENDC 

IFNE (\0)!.$FF00 
STA TESTA$ 

LDA TEMPA$ 

TST TESTA$ 

MEXIT 

ENDC 

ENDC 

ENDC 

IFEQ NARG-3 

IFC '\0','#' 

IFEQ (\2)!.$FF00 

IFEQ \1 

CLR \2 

MEXIT 
ENDC 
ENDC 


TEMPA$ 


IFEQ 

CLRA 

ENDC 


IFEQ 

LDA 

TST 

MEXIT 


\2 

(\2)!.$FFO0 
TEMPA$ 

\2 
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16230 

16240 

16250 

16260 

16270 

16280 

16290 

16300 

16310 

16320 

16330 

16340 

16350 

16360 

16370 

16380 

16390 

16400 

16410 

16420 

16430 

16440 

16450 

16460 

16470 

16480 

16490 

16500 

16510 

16520 

16530 

16540 

16550 

16560 

16570 

16580 

16590 

16600 

16610 

16620 

16630 

16640 

16650 

16660 

16670 

16680 

16690 

16700 

16710 

16720 

16730 

16740 

16750 

16760 

16770 

16780 

16790 

16800 

16810 


IFNE (\2)!.$FF00 
STA TESTA$ 

LDA TEMPA$ 

TST TESTA$ 

mexit 

ENDC 

ENDC 

ENDC 

FAIL Macro syntax error detected! 
ENDM 


*********** 


* MOV.W = move word 

* MOV.W [#, ]<word>,<address> 


* 


ere; 

<word> = word (16-bit) value to move to the <address> and 

<address>+l locations, using immediate " present) 

or absolute addressing ("#," not present). 


* 

Examples: 


* 

1. "MOV.W 

#,5/ START 

* 



* 

2. "MOV.W 

#, CNT, TMP 

* 



* 

3. "MOV.W 

CNT,TMP" 

* 



* 




puts $0005 into location 'START' and 
'START'+1. 

puts the value of symbol 'CNT' into 
locations 'TMP' and 'TMP'+l. 
copies the contents of location 'CNT' 
and 'CNT'+1 into locations 'TMP' and 
'TMP'+l. 


* 

* Register Usage: 

* CC = reflects MS half of value moved. 

* All other registers preserved. 


* 


MOV.W MACR 

IFEQ NARG-2 

STA TEMPA$ 
LDA (\0)+l 

STA (\1)+1 

LDA \0 
STA \1 

IFEQ <\1)!-$FF00 
LDA TEMPA$ 
TST \1 
MEXIT 

ENDC 

IFNE (\1)!.$FF00 
IFEQ (\0)!.$FF00 
LDA TEMPA$ 
TST \0 
MEXIT 
ENDC 

IFNE (\0)!.$FF00 
STA TESTA$ 
LDA TEMPA$ 
TST TESTA$ 
MEXIT 
ENDC 

ENDC 

ENDC 



I 


i 

i 

i 

i 

I 

t 

I 


C 
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16820 

IFEQ NARG 

-3 


16830 

IFC '\0', ' 

r 

16840 

IFEQ 

((\2)+1)!.$FF00 

16850 

IFEQ 

\1 

16860 

CLR 


\2 

16870 

CLR 


\2+l 

16880 

MEXIT 


16890 

ENDC 



16900 

ENDC 



16910 

STA 


TEMPA$ 

16920 

IFEQ 

c\l> 

!.$00FF 

16930 

CLRA 



16940 

ENDC 



16950 

IFNE 

(M> 

!.$00FF 

16960 

LDA 


#{\1>!.$00FF 

16970 

ENDC 



16980 

STA 


(\2)+1 

16990 

IFEQ 

(\l) 

! >8 

17000 

IFNE 

(\1)!.$00FF 

17010 

CLRA 



17020 

ENDC 



17030 

ENDC 



17040 

IFNE 

(\1) 

! >8 

17050 

LDA 


# (\1) ■ >8 

17060 

ENDC 



17070 

STA 


\2 

17080 

IFEQ 

(\2) 

! . $FF00 

17090 

LDA 


TEMPA$ 

17100 

TST 


\2 

17110 

MEXIT 


17120 

ENDC 



17130 

IFNE 

(\2) 

! . $FF00 

17140 

STA 


TESTA$ 

17150 

LDA 


TEMP A $ 

17160 

TST 


TESTA$ 

17170 

MEXIT 


17180 

ENDC 



17190 

ENDC 



17200 

ENDC 



17210 

FAIL 

Macro syntax erro 

17220 

ENDM 



17230 






For More Information On This Product, 
Go to: www.freescale.com 


MOTOROLA 

nr? 


Freescale Semiconductor, Inc 


Freescale Semiconductor, Inc. 


17240 

17250 

17260 

17270 

17280 

17290 

17300 

17310 

17320 

17330 

17340 

17350 

17360 

17370 

17380 

17390 

17400 

17410 

17420 

17430 

17440 

17450 

17460 

17470 

17480 

17490 

17500 

17510 

17520 

17530 

17540 

17550 

17560 

17570 

17580 

17590 

17600 

17610 

17620 

17630 

17640 

17650 

17660 

17670 

17680 

17690 

17700 

17710 

17720 

17730 

17740 

17750 

17760 

17770 

17780 

17790 

17800 

17810 

17820 

17830 

17840 

17850 

17860 

17870 

17880 


★★it******************************************************************* 

* MOVE - move block of memory 

* MOVE [#],<source>, [#] r <destination>, [#],<length> 


* <source> is the address of the source memory block. 

* <destination> is the address of the destination block. 

* <length> is the length of the block to move, in bytes. 

* Maximum of 65,536 bytes can be moved. 

* # is optional character to denote immediate 

* addressing for the next parameter 

* Examples: 

* 1. "MOVE #, ROM, #, RAM, #, CNT moves the block of memory starting at 

* location 'ROM' for 'CNT' bytes, to 

* location 'RAM'. 

* 2. "MOVE #, ABC, #,XYZ, , CNT moves the block of memory starting at 

* location 'ABC' for the number of bytes 

* in locations 'CNT' and 'CNT'+l, to 

* location 'XYZ'. 

* 

* Register Usage: 

* CC = unknown. 

* All other registers preserved. 

* 

* Subr. used: 

* LDAXREG, STAXREG 

* 

* Macros used: 

* None, because this macro was written to be as efficient as 

* possible. 

* 

* Notes: 

* 1. If all immediate addressing operands (#) and the move count is 

* <=256, then a special 'short form' is generated which DOES NOT 

* contain any subroutine calls! 

* 2. Depending on the exact parameters passed, not all registers, 

* subroutines and/or macros may be used. 

* 3. This macro takes advantage of the fact that there are in fact 

* two XREGs, one for LOAD <XREG1$) and one for STORE (XREG2$). 

* 4. The INCXR macro cannot be used here, because it assumes that 

* XREG1$ = XREG2$, 


MOVE MACR 

IFNE NARG-6 

FAIL ** 'move' 
ENDC 

IFC '\4','#' 

IFC '\2','#' 

IFC '\0','#' 

IFLE 5-256 
STA TEMPA$ 
STX TEMPX$ 
LDX #(\5) 

\.0 LDA (\l)-l,x 

STA <\3)-1,x 
DEX 

BNE \.0 
LDA TEMPA$ 
TEMPX$ 


macro requires six arguments! 

1 If all immediate operands (#) and move 
! count <=256, use short form! 

! No subr. calls! 


MEXIT 

ENDC 


ENDC 

ENDC 

ENDC 
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17890 


STA 

TEMPA$ 

17900 


STX 

TEMPX$ 

17910 


LDA 

XREG1$ 

17920 


STA 

TEMPXR$ 

17930 


LDA 

XREG1$+1 

17940 


STA 

TEMPXR$+1 

17950 

IFC 

'\0','#' 

17960 


LDA 

#(\1)!.$FF 

17970 


STA 

XREG1$+1 

17980 


LDA 

#{\1)?>8 

17990 


STA 

XREG1$ 

18000 

ENDC 



18010 

IFNC 

'\0', '# 

18020 


LDA 

(\d+i 

18030 


STA 

XREG1$+1 

18040 


LDA 

(\1) 

18050 


STA 

XREG1$ 

18060 

ENDC 



18070 

IFC 

'\2','#' 

18080 


LDA 

#(\3)!-$FP 

18090 


STA 

XREG2$+1 

18100 


LDA 

#(\3)r>8 

18110 


STA 

XREG2$ 

18120 

ENDC 



18130 

IFNC 

'2 


18140 


LDA 

(\3)+l 

18150 


STA 

XREG2$+1 

18160 


LDA 

(\3) 

18170 


STA 

XREG2$ 

18180 

ENDC 



18190 




18200 

IFC 

'\4','#' 

18210 

IFLE 

\5-256 

18220 


LDX 

#(\5) 

18230 

\.o 

JSR 

LDAXREG 

18240 


JSR 

STAXREG 

18250 


IFEQ 

XREG1$!.$FF00 

18260 


INC 

XKEG1$+1 

18270 


BNE 

\.l 

18280 


INC 

XREG1$ 

18290 

vi 

INC 

XREG2$+1 

18300 


BNE 

\. 2 

18310 


INC 

XREG2$ 

18320 

\-2 

EQU 

* 

18330 


ENDC 


18340 


IFNE 

XREG1$!.$FF00 

18350 


LDA 

XREG1$+1 

18360 


ADD 

#1 

18370 


STA 

XREG1$+1 

18380 


LDA 

XREG1$ 

18390 


ADC 

#0 

18400 


STA 

XREG1$ 

18410 


LDA 

XBEG2$+1 

18420 


ADD 

#1 

18430 


STA 

XREG2$+1 

18440 


LDA 

XREG2$ 

18450 


ADC 

#0 

18460 


STA 

XREG2$ 

18470 


ENDC 


18480 


DEX 


18490 


BNE 

\.o 

18500 


LDA 

TEMPXR$ 

18510 


STA 

XREG1$ 

18520 


STA 

XREG2$ 

18530 


LDA 

TEMPXR$+1 


! immediate type 'from' address? 

! Set XREG1$ = ‘from' address 

\ not immediate type 'from' address? 
! Set XREG1$ = 'from' address 

\ immediate type 'to' address? 

! Set XREG2$ « 'to' address 

! not immediate type 'to' address? 

! Set XREG2$ = 'to' address 


f immediate type length? 

! yes: 8-bit size= use X reg. 
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18540 
18550 
18560 
18570 
18580 
18590 
18600 * 
18610 
18620 
18630 
18640 
18650 
18660 \. 
18670 
18680 
18690 
18700 
18710 
18720 \. 

18730 
18740 
18750 \. 

18760 
18770 
18780 
18790 
18800 
18810 
18820 
18830 
18840 
18850 
18860 
18870 
18880 
18890 
18900 
18910 
18920 
18930 
18940 
18950 
18960 
18970 
18980 
18990 
19000 
19010 
19020 
19030 
19040 
19050 
19060 
19070 
19080 
19090 
19100 
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STA XREG1$+1 
STA XREG2$ + 1 
LDA TEMPA$ 

LDX TEMPX$ 

MEXIT 

ENDC 

IFGT \5-256 ! no: 16-bit size= use 'length' 


LDA 

#(\5) !.$ 0 OFF 

STA 

LENGTH$+1 

LDA 

#<\5)!>8 

STA 

LENGTHS 

JSR 

LDAXREG 

JSR 

STAXREG 

IFEQ 

XREG1$!.$FF00 

INC 

XREG1$+1 

BNE 

\.l 

INC. 

XREG1$ 

INC 

XREG2 $ + 1 

BNE 

\.2 

INC 

XREG2$ 

EQU 

* 

ENDC 

IFNE 

XREG1$!.$FF00 

LDA 

XREG1$+1 

ADD 

#1 

STA 

XREG1$+1 

LDA 

XREG1$ 

ADC 

#0 

STA 

XREG1$ 

LDA 

XREG2$+1 

ADD 

#1 

STA 

XREG2$+1 

LDA 

XREG2$ 

ADC 

#0 

STA 

XREG2 $ 

ENDC 

LDA 

LENGTHS+1 

SUB 

#1 

STA 

LENGTH$+1 

LDA 

LENGTH$ 

SBC 

#0 

STA 

LENGTH$ 

ORA 

LENGTH$+1 

BNE 

\-0 

LDA 

TEMPXR$ 

STA 

XREG1$ 

STA 

XREG2 $ 

LDA 

TEMPXR$+1 

STA 

XREG1$+1 

STA 

XREG2$+1 

LDA 

TEMPA$ 

LDX 

TEMPX$ 

MEXIT 


ENDC 

ENDC 
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I 

of 

c 




# 


19110 

IFNC '\4' 

, ! nonimmediat 

19120 


LDA 


(\5)!.$00FF 

19130 


STA 


LENGTHS+1 

19140 


LDA 


(\5)!>8 

19150 


STA 


LENGTHS 

19160 

\.o 

JSR 


LDAXREG 

19170 


JSR 


STAXREG 

19180 


IFEQ 

XREG1$!.$FFO0 

19190 


INC 


XREG1$+1 

19200 


BNE 


\.l 

19210 


INC 


XREG1$ 

19220 

\.l 

INC 


XREG2$+1 

19230 


BNE 


\*2 

19240 


INC 


XREG2S 

19250 

\ - 2 

EQU 


* 

19260 


ENDC 



19270 


IFNE 

XREG1S ! .$FF00 

19280 


LDA 


XREGlS+1 

19290 


ADD 


#1 

19300 


STA 


XREG1$+1 

19310 


LDA 


XREG1S 

19320 


ADC 


#0 

19330 


STA 


XR£G1$ 

19340 


LDA 


XREG2$+1 

19350 


ADD 


#1 

19360 


STA 


XREG2$+1 

19370 


LDA 


XREG2$ 

19380 


ADC 


#0 

19390 


STA 


XR£G2$ 

19400 


ENDC 



19410 


LDA 


LENGTHS+l 

19420 


SUB 


#1 

19430 


STA 


LENGTH$+1 

19440 


LDA 


LENGTHS 

19450 


SBC 


#0 

19460 


STA 


LENGTHS 

19470 


ORA 


LENGTHS+l 

19480 


BNE 


\.o 

19490 


LDA 


TEMPXRS 

19500 


STA 


XREG1S 

19510 


STA 


XREG2S 

19520 


LDA 


TEMPXRS+1 

19530 


STA 


XREG1S+1 

19540 


STA 


XREG2$+1 

19550 


LDA 


TEMPAS 

19560 


LDX 


TEMPXS 

19570 


MEXIT 


19580 

ENDC 



19590 


FAIL 


Macro syntax error detected! 

19600 


ENDM 
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19630 

19640 

19650 

19660 

19670 

19680 

19690 

19700 

19710 

19720 

19730 

19740 

19750 

19760 

19770 

19780 

19790 

19800 

19810 

19820 

19830 

19840 

19850 

19860 

19870 

19880 

19890 

19900 

19910 

19920 

19930 

19940 

19950 

19960 

19970 

19980 

19990 

20000 

20010 

20020 

20030 

20040 

20050 

20060 

20070 

20060 

20090 

20100 

20110 

20120 

20130 

20140 

20150 

20160 

20170 

20180 

20190 

20200 

20210 

20220 

20230 

20240 


RAMSBR$ EQU 


Start of RAM based subroutines! 


KMrn.^nn j M ^ — -— 

************************************************************************************ 

** The following RAM subroutines MUST BE INITIALIZED from ROM upon 

** startup (from 'RAMSBR$' for 'RAMSZ$' number of bytes) . If changes ** 

** are to be made to the RAM subroutines, mafce them here. Then copy ** 

** the source below to the ROM area and insert a in front of all ** 

** the labels (leading will be used to denote ROM). This has ** 

** already been done for you in the RAMSBR.INI file. Just include ** 

** this file into your ROM data area and add the following line in 
** your RESET routine to initialize the RAM subroutines from the ROM. 

** MOVE #, . RAMSBR, #, RAMSBR, #, ** 

** It is more efficient if the RAM subroutines are placed in DIRECT ** 

** addressing memory, i.e., $0000-$OOFF, but it is not required. 
************************************************************************************** 


*— start of RAM subroutines- 

************************************************************************************** 

* LDAXREG = load A via XREG subr. 

* 

* Register Usage: 

* CC — reflects value loaded. 

* All other registers preserved. 

* 

* NOTE: 

* 1. Instruction modified code here must be located in RAM! 

* 

LDAXREG EQU * 

LDA 0-0+$FFFF 

XREG1$ EQU *-2 Pseudo XREG #1 

RTS 


************************************************************** 

* STAXREG = store A via XREG subr. 

★ 

* Register Usage: 

* CC = reflects value stored. 

* All other registers preserved. 

* 

* NOTE: 

* 1. Instruction modified code here must be located in RAM! 

* 

STAXREG EQU * 

STA 0—0+$FFFF 

XR£G2$ EQU *—2 Pseudo XREG #2 

RTS 


*************************** 


************************* ************************************* 

* LDAYREG = load A via YREG subr. 

* 

* Register Usage: 

* CC = reflects value loaded. 

* All other registers preserved. 

* 

* NOTE *. 

* 1. Instruction modified code here must be located in RAM! 


********************************* 


LDAYREG EQU 
LDA 

YR£G1$ EQU 
RTS 


0—0+$FFFF 
*-2 


Pseudo YREG #1 


MOTOROLA 
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■ 

O 

c 




i 


9 


1 


20250 

20260 

20270 

20280 

20290 

20300 

20310 

20320 

20330 

20340 

20350 

20360 

20370 

20380 

20390 

20400 

20410 

20420 

20430 

20440 

20450 

20460 

20470 

20480 

20490 

20500 

20510 


************************************************************************************** 

* STAYREG * store A via YREG subr. 

* 

* Register Usage: 

* CC = reflects value stored. 

* All other registers preserved. 


* NOTE: 

* 1. Instruction modified code here must be located in RAM! 


STAYREG EQU * 

STA 0-0+$FFFF 

YREG2$ EQU *-2 Pseudo YREG #2 

RTS 

*— end of RAM subroutines- 

RAMSZ$ EQU *-RAMSBR$ Size of ram subroutines (in bytes) . 


* NOTE: 

TEMPA$ 

TEMPX$ 

TEMPXR3 

TESTA$ 

LENGTH$ 


ORG 

TEMEA$ 

RMB 

RMB 

RMB 

RMB 

RMB 


LO$MEM 

and TESTA$ must always be in low memory $0000-00FF. 

1 Temporary storage for A accumulator. 

1 Temporary storage for X register. 

2 Temporary storage for XREG register. 

1 Temporary operand storage for setting CC bits. 

2 Temporary operand length. 


* 


****'*****************************'***************************************************** 





For More Information On This Product, 
Go to: www.freescale.com 




Freescale Semiconductor, Inc 


Freescale Semiconductor, Inc 


Listing 2 — RAMSBR.INI File 


00010 

00020 

00030 

00040 

00050 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 

00580 

00590 


******************************** 

* ramsbr.ini 1.0 

* -—-—- 

* Module Name: RAMSBR 


************************** 


**************************** 


RAM Subroutine Initialization 


* Description: . 

* This file contains the initialisation code for the RAM subroutine 

* area needed to support the MACROS05.MAC file. It MUST be place m 

* the ROM data area and then copied to RAM for proper operation. 

* Consult the MACROSOS.MAC file for more details. 

*******4 


************ 


* Notes: _ . , 

* 1. Motorola reserves the right to make changes to this file. 

* Although this file has been carefully reviewed and is 

* believed to be reliable, Motorola does not assume any 

* liability arising out of its use. This code may be freely 

* used and/or modified at no cost or obligation by the user. 

* 2. The latest version of this file is maintained on the Motorola 

* FREEWARE Bulletin Board, 512/891-FREE (512/891-3733). It operates 

* continuously (except for maintenance) at 1200-2400 baud, 8 bits, 

* no parity. Sample test files for PASM05 are also included. 

* Download the archive file, MACROS05.ARC, to get all the files. 

I**************t****************************-**-**^****^^*^^^**^***^*^**^* 

* REVISION HISTORY (add new changes to top) : 

* 

* 05/16/90 P.S. Gilmour 

* 1 Original entry generated from MACROSOS.MAC version 1.0. 

L*.«^^.^.^*************«*********************** m ********“**** # ***** 


.RAMSBR$ EQU 


Start of RAM based subroutines! 

__ ******************************************************* 

*. The’ following RAM subroutines MOST BE INITIALIZED from ROM upon ** 

** startup (from 'RAMSBR$' for 'RAMSZ$' number of bytes). If changes 

** are to be made to the RAM subroutines, make them in the MACROSOS.MAC ^ 

** file and then copy the source here (ROM area) and insert a '.' in ^ 

** front of all the labels (leading will be used to denote R0M) ; 

. ... . _^^^.^^*a.a.******************************************** 


LDAXREG = load A via XREG subr. 


Register Usage: 

CC = reflects value loaded. 

All other registers preserved. 

NOTE: 

1. Instruction modified code here must be located in RAM! 


.LDAXREG 


.XR£G1$ 


EQU 

LDA 

EQU 

RTS 


0—0+$FFFF 

*-2 Pseudo XREG #1 
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00600 

00610 

00620 

00630 

00640 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 

00800 

00810 

00820 

00830 

00840 

00850 

00860 

00870 

00880 

00890 

00900 

00910 

00920 

00930 

00940 

00950 

00960 

00970 

00980 

00990 

01000 

01010 

01020 

01030 

01040 

01050 

01060 

01070 

01080 

01090 


************************************************************************************** 

* STA$X = store A via XREG subr. 

* 

* Register Osage: 

* CC = reflects value stored. 

* All other registers preserved. 

* 

* NOTE: 

* 1. Instruction modified code here must be located in RAH! 

* 

.STA$X EQU * 

STA 0-0+$FFFF 

. XREG2$ EQU *-2 Pseudo XREG #2 

RTS 

************************************************************************************** 

* LDAYREG = load A via YREG subr. 

* 

* Register Osage: 

* CC = reflects value loaded. 

* All other registers preserved. 

* 

* NOTE: 

* 1. Instruction modified code here must be located in RAM! 

* 

. LDAYREG EQU * 

LDA 0—0+$FFFF 

.YREG1$ EQU *—2 Pseudo YREG #1 

RTS 

************************************* ************************************************* 

* STA$Y = store A via YREG subr. 

* 

* Register Osage: 

* CC = reflects value stored. 

* All other registers preserved. 

t 

* NOTE: 

* 1. Instruction modified code here must be located in RAM! 

* 

.STA$Y EQU * 

STA 0—0+$FFFF 

. YREG2$ EQU *-2 Pseudo YREG #2 

RTS 

*— end of RAM subroutines-* 

.RAMSZ$ EQU *-.RAMSBR$ Size of ram subroutines (in bytes) . 

FNE RAMS Z $ ~. RAMS Z $ 

FAIL Size mismatch between RAM/ROM subroutine areas! 

ENDC 
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